home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 8: LINUX Games / Linux Cubed Series 8 - LINUX Games.iso / games / x11 / rpg / crossfir.92 / crossfir / crossfire-0.92.5 / lib / adm / check-xpm.pl next >
Perl Script  |  1996-07-24  |  591b  |  23 lines
  1. #!/usr/local/bin/perl
  2. #
  3. # This checks to make sure the esrv_xpm.eric file is up to date, and
  4. # also checks its consistency.
  5. #
  6. open(BMAPS,"bmaps.paths") || die("nobmaps\n");
  7. open(ESRV,"esrv_xpm.eric") || die("noesrv\n");
  8. $_ = <BMAPS>;
  9. while(<ESRV>) {
  10.     next unless /^ESRV_XPM (\d+) (.+)$/o;
  11.     $num = $1;
  12.     $place = $2;
  13.     chop($_ = <BMAPS>);
  14.     die("Bad line '$_'\n") unless /^\\(\d+)\s+(.+)$/o;
  15.     $xnum = $1;
  16.     $xplace = $2;
  17.     die("($num,$place) != ($xnum,$xplace)\n") 
  18.     unless $num eq $xnum && $place eq $xplace;
  19. }
  20. $_ = <BMAPS>;
  21. die("Too much on bmaps '$_'\n") unless /^$/o;
  22.  
  23.